#!/bin/ksh
set -x

##############################################################################
#
# AIX 3.2 Internationalization Sample Environment Package
#
# (C) COPYRIGHT International Business Machines Corp. 1989 All Rights Reserved
#
# US Government Users Restricted Rights - Use, duplication or disclosure 
# restricted by GSA ADP Schedule Contract with IBM Corp.
#
# INTERNATIONAL BUSINESS MACHINES CORPORATION PROVIDES THIS PACKAGE OF SAMPLE
# ENVIRONMENT FILES, BOTH INDIVIDUALLY AND AS ONE OR MORE GROUPS, AS IS, 
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT
# LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
# PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE 
# SAMPLE ENVIRONMENT FILES, BOTH INDIVIDUALLY AND AS ONE OR MORE GROUPS, IS
# WITH YOU. SHOULD ANY PART OF THE SAMPLE ENVIRONMENT PACKAGE PROVE DEFECTIVE,
# YOU (AND NOT IBM) ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICE, SUPPORT,
# REPAIR OR CORRECTION.
#
# Each copy of the AIX 3.2 ILS Sample Environment Package or derivative work
# thereof must reproduce the IBM Copyright notice and the complete contents of
# this notice.
#
##############################################################################

# Usage: langterm Locale 
set -x
exec > /tmp/log 2> /tmp/log

LOCALE=$1
export LANG=`getField 3 $LOCALE`
export LC_MESSAGES=`getField 3 $LOCALE`

#
# Check if locale is installed
#
getSysLocale $LOCALE 
if [ $? = 1 ]
then
   xmmsg "Locale $LOCALE is not installed"
   exit
fi

#
# Deterimine title name based on WM locale's
#

# Determine codeset of mwm (assumes LANG is WM's locale)
chrset_wm=`getField 2 "$LANG"`
chrset_app=`getField 2 "$LOCALE"`

TITLE=""
if [ "$chrset_wm" = "$chrset_app" ] 
then
	#
	# Get the name of the language in the WM's code set
	#
	CODESET=`getCS "$LOCALE"`
	lg=`getField 5 "$LOCALE"`
	
	TITLE=`grep "$lg"_ $HOME/tables/"$CODESET" 2> /dev/null`

	if [ -n "$TITLE" ]
	then
		TITLE=`expr "$TITLE" : '.* \(.*\)'`
	fi
fi


if [ -z "$TITLE" ]
then
	#
	# Get the PCS name of the languge
	#   format must be %t(%l)
	#
	#  %l cs_class , e.g. Japanese EUC
	TITLE=`getField 4 "$LOCALE"`
	TITLE=`expr "$TITLE" : '.*(\(.*\))'`
fi
cs_class=`getField 6 "$LOCALE"`


#
# Now compose command 
#

CMD=aixterm
BIDIARGS=""
ARGS="-geometry =76x20 -title"
lg=`expr "$LOCALE" : '^\(..\).*'`
case "$lg" in
   ja ) FONT="*-gothic-*";;
   Ja ) FONT="*-gothic-*";;
   zh ) FONT="*-sung-*";;
   ko ) FONT="*-myungjo-*";;
   Ar )
      CMD=$HOME/BIDI/bin/aixterm
      ARGS="-geometry =76x20 -T"
      FONT="*medium-r*--23*-1046" 
      BIDIARGS="-orient RTL -text implicit" ;;
   ar )
      CMD=$HOME/BIDI/bin/aixterm
      ARGS="-geometry =76x20 -T"
      FONT="*medium-r*--23*-1046" 
      BIDIARGS="-orient RTL -text implicit" ;;
   Iw )
      CMD=$HOME/BIDI/bin/aixterm
      ARGS="-geometry =76x20 -T"
      FONT="*medium-r*--30*-856" 
      BIDIARGS="-orient RTL -text implicit" ;;
   iw ) 
      CMD=$HOME/BIDI/bin/aixterm
      ARGS="-geometry =76x20 -T" 
      FONT="*medium-r*--30*-856" 
      BIDIARGS="-orient RTL -text implicit" ;;
   * ) FONT="*medium-r*--30*" ;;
esac

TITLE="$CMD: $TITLE $cs_clss $LOCALE (`getField 6 $LOCALE`)"


# NOTE: The -lang parameter doesn't seem to handle titles correctly. It's
# necessary to set the LANG variable first (see above).

#
# Invoke commands to initalize command
#

setkb $LOCALE

# $CMD $ARGS "$TITLE" $BIDIARGS -fn "$FONT" 

SYSV=`uname -v`
if [ "$SYSV" = 4 ]
then
	aixterm +mn $ARGS "$TITLE" $BIDIARGS 
else
        $CMD $ARGS "$TITLE" $BIDIARGS -fn "$FONT" 
fi
